1 REM MANUAL CONTROL OF ROBOT MOTORS
2 REM ROLF A DEININGER JULY 1983
10 POKE 37138,15 :REM ALL LINES OUTPUT
20 POKE 37136,0:REM TURN ALL MOTORS OFF
30 DIM CS$(13),CN(13)
40 FOR I=1 TO 13:READ CN(I):NEXT I
50 DATA 2,1,6,5,9,10,13,14,17,18,21,22,0
60 CS$="BRBLERELSUSDWRWLHCHOWUWDST"
70 PRINT"ROBOT MOTOR CONTROL":PRINT
80 PRINT "COMMAND ";
90 INPUT CM$:CM$=LEFT$(CM$,2)
100 IF CM$="EN" THEN POKE 37136,0:END
110 FOR I=1 TO 13
120 IFCM$<>MID$(CS$,I*2-1,2) THEN 130
125 POKE 37136,CN(I):PRINT " ":(null) TO 80
130 NEXT I
140 PRINT"UNKNOWN COMMAND"
150 (null) TO 80